Conceptual Model

Applying our function

load packages and function

library(tidyverse)
source("R/almond_yield_anomaly.R")

read in climate data

clim <- read.table("data/clim.txt", header = TRUE)

use function on climate data

almond_yield_anomaly(clim)
## [1] "Minimum Yield: -0.03 ton(s) per acre | Maximum Yield: 1920.31 ton(s) per acre | Mean Yield: 181.76 ton(s) per acre"